home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).adf
/
SASTools
/
M2ouse
/
M2ouse.mod
< prev
next >
Wrap
Text File
|
1990-05-16
|
2KB
|
53 lines
****************************************************************************
* Programme : M2ouse.mod *
* Usage : M2ouse >file *
* Version : V1.10 *
* Date : 15.05.1989 *
* Author : Jörg Sixt *
* Purpose : converts mouse-pointer to an INLINE-procedure and write it *
* into the actual output-handler *
* Language : Modula-2,AMSoft PD-Version from Fish 113 *
* Bugs : The PD-Version don't have an argument-module, so the *
* output file must be specified via pipeling *
****************************************************************************
MODULE M2ouse ;
FROM SYSTEM IMPORT ADR ;
FROM InOut IMPORT WriteHex ;
FROM Terminal IMPORT WriteString,WriteLn ;
FROM Intuition IMPORT Preferences,GetPrefs,pointerSize ;
VAR Buffer : Preferences ;
i : CARDINAL ;
PROCEDURE IntoHex (number : CARDINAL) ;
BEGIN
WriteString(" 0") ; WriteHex(number,4) ; WriteString("H,") ;
END IntoHex ;
BEGIN
GetPrefs(ADR(Buffer),108) ;
WITH Buffer DO
WriteString("PROCEDURE SpriteData ;") ; WriteLn ;
WriteString(" BEGIN") ; WriteLn ;
WriteString(" INLINE(") ; WriteLn ;
FOR i := 1 TO pointerSize DO
IntoHex(pointerMatrix[i-1]) ;
IF NOT(ODD(i)) THEN WriteLn ; END ;
END ;
WriteString(" ) ;") ; WriteLn ;
WriteString(" END SpriteData ;") ; WriteLn ;
WriteLn ;
WriteString("PROCEDURE SpriteCols ;") ; WriteLn ;
WriteString(" BEGIN") ; WriteLn ;
WriteString(" INLINE(") ; WriteLn ;
IntoHex(color17) ;
IntoHex(color18) ;
IntoHex(color19) ; WriteLn ;
WriteString(" ) ;") ; WriteLn ;
WriteString(" END SpriteCols ;") ; WriteLn ;
END ;
END M2ouse .